home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMIN1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  336b  |  17 lines
  1. Program DemoInputOne;
  2. {DEMIN1}
  3.  
  4. Uses CRT,
  5.      totINPUT;
  6.  
  7. begin                 
  8.    Clrscr;
  9.    Writeln('Press any key or mouse button combination. (Esc to quit)');
  10.    Key.SetDouble(true);
  11.    repeat
  12.       Key.GetInput;
  13.       GotoXY(1,2);
  14.       Write('You press key: ',Key.LastKey,'    ');
  15.    until Key.LastKey = 27;
  16. end.
  17.